home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Explorer Options 8.xpl < prev    next >
Text File  |  2003-07-31  |  2KB  |  46 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Explorer\Settings (Advanced)"
  5. "NAME"="File ACL Copy Enforce"
  6. "OSVERSION"="0001011"
  7. "VERSION"="1.01"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Always copy file-ACL information with file"
  10. "DESCRIPTION 1"="If a drive is using the NTFS file-system (default for Windows 2000, XP and above), each file on it can have an ACL, an Access Control List. This ACL controls which people have and have not access to the file in question."
  11. "DESCRIPTION 2"="When you _move_ a file from one location to another, Windows automatically moves the ACL with it, so it has exactly the same ACL on the new location. However, when you _COPY_ a file, Windows does normally not copy the ACL but instead use the ACL of the new location. If you don't think about this, you might give people access to the files that they should never see."
  12. "DESCRIPTION 3"="If this setting is activated, Windows will ALWAYS copy the ACL along with the file, no matter if you move or copy a file. "
  13. "DESCRIPTION 4"="Please note that this is a per-user setting!"
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com/"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="ripped from David Chernicoff, david@winnetmag.com"
  18.  
  19.  
  20. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ForceCopyACLWithFile" 'DW
  21.  
  22. Sub Plugin_Initialize 
  23.  s=RegReadValue(sV1)
  24.  if s="1" then SetUIElement 1,true
  25. End Sub
  26.  
  27. Sub Plugin_CheckData(ElementIndex)
  28. End Sub
  29.  
  30. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  31.  b=GetUIElement(1)
  32.  if b=true then
  33.     Call RegWriteValue(sV1,"1",2)
  34.  else
  35.     if RegValueExists(sV1) then
  36.        Call RegDeleteValue(sV1)
  37.     end if
  38.  end if
  39.  
  40.  
  41.  Call Logoff()
  42. End Sub
  43.  
  44. Sub Plugin_Terminate 
  45. End Sub
  46.